object fSelecionaVisitas: TfSelecionaVisitas
  Left = 275
  Top = 286
  Width = 410
  Height = 270
  BorderIcons = [biSystemMenu]
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 402
    Height = 193
    Align = alClient
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit, dgMultiSelect]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'VISITA'
        Title.Caption = 'Tipo'
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DIAS'
        Title.Caption = 'Dias'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DATAULTIMA'
        Title.Caption = 'Ultima'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DATAPROXIMA'
        Title.Caption = 'Proxima'
        Width = 80
        Visible = True
      end>
  end
  object MMJPanel3: TMMJPanel
    Left = 0
    Top = 193
    Width = 402
    Height = 50
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 1
    Silhuette.Shape.ShapeText = 'Shape text'
    Silhuette.PictureShape.Picture.Data = {07544269746D617000000000}
    Silhuette.PictureShape.DisplayPicture = True
    Background.StartColor = clSilver
    Background.EndColor = clTeal
    Background.FillType = GradUpDown
    object BitBtn1: TBitBtn
      Left = 107
      Top = 9
      Width = 80
      Height = 33
      Caption = '&Confirma'
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 214
      Top = 9
      Width = 80
      Height = 33
      Caption = '&Cancela'
      TabOrder = 1
      OnClick = BitBtn2Click
    end
  end
  object ImageList1: TImageList
    Left = 242
    Top = 104
    Bitmap = {
      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000848284008482840000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000008482
      84003CBA00003CBA000084828400000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000002C07
      AD00342176000000000000000000000000000000000000000000000000000000
      0000C2C2EC002104860000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000003CBA
      00003CBA00003CBA00003CBA0000848284000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000002400
      C3003204C800787B8F0000000000000000000000000000000000000000003A1F
      A0001E00A5000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000848284003CBA
      00003CBA00003CBA00003CBA00003CBA00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000007565
      CB002400BE00271286009499A8000000000000000000000000008168DB002A08
      AD00A39ADE000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000848284003CBA00003CBA
      000000F055003CBA00003CBA00003CBA00008482840000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000002600B70038219900BDC3C40000000000370CAF002A06AD000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000003CBA00003CBA000000F0
      55000000000000F055003CBA00003CBA00008482840000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000006349C7002500B2003C3387007257D6003107AE00B1A4E2000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000F055003CBA00000000
      0000000000000000000000F055003CBA00003CBA000084828400000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000002200DB002901D40099A2B200000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000F055000000
      000000000000000000000000000000F055003CBA00003CBA0000848284000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000007E66DF002902D3002C00DF00352E7400909597000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000003CBA00003CBA00003CBA00008482
      8400000000000000000000000000000000000000000000000000000000000000
      0000000000002D0CAA002D04B10000000000000000003710AD00310F9E006162
      8400000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000F055003CBA00003CBA00003CBA
      0000848284000000000000000000000000000000000000000000000000000000
      00007C67DF002603B5007566C2000000000000000000000000005234B8002F14
      A100464A79000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000F055003CBA00003CBA
      00003CBA00000000000000000000000000000000000000000000000000002C0A
      AF002D04BF00C4C1F3000000000000000000000000000000000000000000B19C
      F7001B0097000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000F055003CBA
      00003CBA00008482840000000000000000000000000000000000846BE3002D00
      D1003D24AA000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000000000F0
      55003CBA000084828400000000000000000000000000000000003D21B900917F
      DE00000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000F055003CBA000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFFFFF00000000F3FFFFFF00000000
      E1FFE7F300000000E0FFE3E700000000C0FFE1C700000000807FF89F00000000
      887FF81F000000009C3FFE3F00000000DE1FFC1F00000000FF0FF98F00000000
      FF07F1C700000000FF87E3E700000000FFC3C7FF00000000FFE3CFFF00000000
      FFF3FFFF00000000FFFFFFFF0000000000000000000000000000000000000000
      000000000000}
  end
  object DataSource1: TDataSource
    DataSet = cdsVisita
    Left = 280
    Top = 104
  end
  object sdsVisita: TSQLDataSet
    CommandText = 'select * from VISITAS '#13#10'where CODCLIENTE = :id'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 216
    Top = 144
    object sdsVisitaCODVISITA: TIntegerField
      FieldName = 'CODVISITA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sdsVisitaCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object sdsVisitaVISITA: TStringField
      FieldName = 'VISITA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sdsVisitaDATAULTIMA: TDateField
      FieldName = 'DATAULTIMA'
      ProviderFlags = [pfInUpdate]
    end
    object sdsVisitaDATAPROXIMA: TDateField
      FieldName = 'DATAPROXIMA'
      ProviderFlags = [pfInUpdate]
    end
    object sdsVisitaDIAS: TIntegerField
      FieldName = 'DIAS'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dspVisita: TDataSetProvider
    DataSet = sdsVisita
    UpdateMode = upWhereKeyOnly
    Left = 253
    Top = 144
  end
  object cdsVisita: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'dspVisita'
    Left = 288
    Top = 144
    object cdsVisitaCODVISITA: TIntegerField
      FieldName = 'CODVISITA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsVisitaCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object cdsVisitaVISITA: TStringField
      FieldName = 'VISITA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cdsVisitaDATAULTIMA: TDateField
      FieldName = 'DATAULTIMA'
      ProviderFlags = [pfInUpdate]
    end
    object cdsVisitaDATAPROXIMA: TDateField
      FieldName = 'DATAPROXIMA'
      ProviderFlags = [pfInUpdate]
    end
    object cdsVisitaDIAS: TIntegerField
      FieldName = 'DIAS'
      ProviderFlags = [pfInUpdate]
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -12
    Font.Name = 'Segoe UI'
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = True
    Active = True
    Left = 312
    Top = 104
  end
  object sdsAgenda: TSQLDataSet
    CommandText = 
      'select * from AGENDAMENTO '#13#10'where CODCLIENTE = :id and DATA = :d' +
      'ta'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'dta'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 112
    Top = 144
    object sdsAgendaCOD_AGENDAMENTO: TIntegerField
      FieldName = 'COD_AGENDAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sdsAgendaCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      ProviderFlags = [pfInUpdate]
    end
    object sdsAgendaASSUNTO: TStringField
      FieldName = 'ASSUNTO'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object sdsAgendaHORA: TTimeField
      FieldName = 'HORA'
      ProviderFlags = [pfInUpdate]
    end
    object sdsAgendaDATA: TDateField
      FieldName = 'DATA'
      ProviderFlags = [pfInUpdate]
    end
    object sdsAgendaFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object sdsAgendaSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
    end
    object sdsAgendaCODVENDA: TIntegerField
      FieldName = 'CODVENDA'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dspAgenda: TDataSetProvider
    DataSet = sdsAgenda
    UpdateMode = upWhereKeyOnly
    Left = 144
    Top = 144
  end
  object cdsAgenda: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'dta'
        ParamType = ptInput
      end>
    ProviderName = 'dspAgenda'
    Left = 176
    Top = 144
    object cdsAgendaCOD_AGENDAMENTO: TIntegerField
      FieldName = 'COD_AGENDAMENTO'
    end
    object cdsAgendaCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
    end
    object cdsAgendaASSUNTO: TStringField
      FieldName = 'ASSUNTO'
      Size = 200
    end
    object cdsAgendaHORA: TTimeField
      FieldName = 'HORA'
    end
    object cdsAgendaDATA: TDateField
      FieldName = 'DATA'
    end
    object cdsAgendaFONE: TStringField
      FieldName = 'FONE'
      Size = 13
    end
    object cdsAgendaSTATUS: TStringField
      FieldName = 'STATUS'
    end
    object cdsAgendaCODVENDA: TIntegerField
      FieldName = 'CODVENDA'
      ProviderFlags = [pfInUpdate]
    end
  end
end
